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EDITORIAL 


Aqui está, caro amigo e leitor, mais um número da nossa revista 
pioneira. Pelo número de cartas, já somos “revistona”, muito bem aceita pelo 
mercado, dando mostras de uma vitalidade espantosa nos dias atuais. 

Contamos com a boa vontade de todos, que responderam de maneira 
admirável ao nosso lançamento. Isso nos anima a continuar, e a dar sempre 
mais de nós mesmos, em prol da boa literatura técnica. 

As cartas ainda não respondidas, deverão se-lo oportunamente, mas 
já sabemos de maneira muito clara o que você, prezado amigo leitor, deseja 
para o seu adestramento e para o seu lazer. 

É precisamente isso que encontrará aqui nestas páginas: programas 
dedicados a você e ao seu mundo, otimismo, muito trabalho e a certeza de 
que nos encontraremos mensalmente nas bancas, sempre com a novidade 
que atende a todos os gostos. 
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Prezados Senhores: 

“Já fui colecionador de DIVIRTA- 
SE COM A ELETRÔNICA e BE-A-BÁ 
DA ELETRÔNICA, que considero óti- 
mas revistas, mas me liguei à compu- 
tação e continuo até hoje. 

Foi com grande satisfação que en- 
contrei SÓ PROGRAMAS numa banca 
de revistas e constatei que, como sem- 
pre, vocês acertaram na medida certa 
sobre o que quer o leitor, muita práti- 
ca e pouca teoria. 

Mesmo assim, gostaria de fazer al- 
gumas sugestões: 

1- Publiquem também programas 
para a linha APPLE. 

2- Aceitem colaborações dos leito- 
res. 

3- Publiquem programas em AS- 
SEMBLY (linguagem de máquina). 

4- Possibilitem a assinatura da re- 
vista.” 

Marcelo Moretti Fioroni 

Marília - SP 


É isso aí Marcelo, quanto às suas 
sugestões todas já estão encaminha- 
das, em breve serão executadas. Muito 
obrigado pela dedicação e afeto que 
tem conosco. 


“Escrevo para dar os meus para- 
béns pelo lançamento da revista “SO 
PROGRAMAS” 

Há muito esperava por uma revista 
assim. Sô ha uma coisa: 

Apesar de gostar de jogos, gostaria 
que saissem programas aplicativos (ex.: 
conta bancária, etc.), além de jogos de 
inteligência para o TK. 

Espero muito da revista já que o 
seu primeiro número desponta entre 
as melhores do gênero. 

Por favor não parem aí. Vão adian- 
te. Nós os usuários de pequenos com- 
putadores, necessitamos desta revista. 

Grato.” 

Eduardo Neves Motta 

Vila Valquiria — RJ 


Muito obrigado Eduardo, quanto 
aos programas aplicativos já estão sen- 
do elaborados, e nesta mesma edição 





você encontrará dois jogos de inteli- 
gência, que são o Kono e o Quadrado 
Giratório. 

Fique tranquilo, pois não parare- 
mos. Isso é apenas o começo. 


“Eu tenho um microcomputador 
modelo TK 2000, mas na revista SO 
PROGRAMAS não há programas pa- 
ra este tipo de computador, por isso 
estou escrevendo para pedir que pu- 
bliquem programas para este tipo de 
computador. 

Também queria saber se o meu 
micro pode ser usado em uma sala com 
ar condicionado. 

Espero sua resgosta. Grato. ” 

Adriano Almeida Calado 

Manaus — AM 


Caro Adriano, quanto aos progra- 
mas em breve serão publicados. Ago- 
ra com referência ao uso de seu mi- 
crocomputador numa sala de ar con- 
dicionado, não há problema, muito 
pelo contrário, auxiliará na refrigera- 
ção dele. 

Obrigado e mande-nos cartas sem- 
pre que surgir alguma dúvida. 


“Primeiramente quero dar os para- 
béns pela ótima idéia de fazer uma re- 
vista cujo conteúdo seja exclusivamen- 
te composto de PROGRAMAS, que 
possibilita um manejo constante com 
um computador. 

Tenho algumas dúvidas no que se 
refere a gráficos. Por exemplo: 

No programa “DINAMITE” tenho 
dificuldades de fazer os desenhos que 
estão entre aspas nas linhas: 27, 30, 
35, 0 eetc. 

Espero receber explicações neces- 
sárias para que eu possa assim digitar 
o programa corretamente. 


Proponho que nos próximos nu- 


meros possam constar programas de 
conta bancária, folha de pagamento e 
outros. 

Estou satisfeito de poder contar 
com a compreensão de vocês, espe- 
rando a resposta o mais breve possi- 
vel. Obrigado. ” 

Joaquim Carlos Silva de Azevedo 
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Antes de mais nada, muito obriga- 
do caro Joaquim, quanto às suas dú- 
vidas aí vão: 

As linhas 27, 30, 35, 40, 300, 301, 
302, 303, são compostas de trinta e 
dois caracteres cada uma. 

As linhas 27, 302, 303, são com- 
postas pelo caracter gráfico shift A. 

As linhas 30, 35, 300, 301, são 
compostas pelo asterisco inverso. 


Na linha 342 são: 1 gráfico shift 
D, 1 espaço, 1 gráfico shift D. 

Na linha 346 são: 1 gráfico shift Y, 
2 gráficos shift 6, 1 gráfico shift T, 1 


gráfico shift 7, 1 gráfico shift Y, 2 grá-. 


ficos shift 6, 1 gráfico shift T. 

Na linha 347: 1 espaço, 1 espaço 
inverso, 1 espaço. 

Na linha 348: 1 espaço, 3 espaços 
inversos, 1 espaço. 

Na linha 349: 1 espaço, 1 espaço in- 
verso, 3 gráficos shift 7, 1 espaço in- 
verso, 1 espaço. 

Na linha 350: 1 espaço inverso, 1 
gráfico shift T, 1 gráfico shift Y, 1 grá- 
fico shift T, 1 gráfico shift Y, 1 gráfico 
shift T, 1 espaço inverso. 

As outras linhas creio que são fáceis 
de se deduzir. Quanto às suas suges- 
tões, já estão sendo elaborados progra- 
mas nesse gênero que em breve serão 
publicados. Esperamos ter resolvido 
seu problema. 


“Prezados Senhores, 

Primeiramente, gostaria de felicita- 
los pela idéia do lançamento de uma 
revista como a “SÓ PROGRAMAS": 
Acredito que o mercado da micro- 
informática ansiava por uma publica- 
ção desse quilate. 

A principal finalidade desta, no en- 
tanto, é solicitar esclarecimentos a res- 
peito do programa “BARREIRA” que 
não consegui rodar a contento. 

Acho que o problema deve estar 
na linha 350 e seguintes. 

Meu equipamento é um simples 
TK-82-C com 16 K. 

Como sugestão, se Vs. Sas. permiti- 
rem, deixaria a idéia de publicar pro- 
gramas que contenham rotinas em lin- 
guagem de máquina. ” 

Carlos Alberto Batista da Silva 

Rio Claro — SP 


Muito obrigado Carlos, sobre o pro- 
grama “BARREIRA”, verificamos e 
não encontramos nenhuma irregulari- 
dade, provavelmente você errou algu- 
ma linha de coordenada ou de IF, 
quanto aos programas, já lançamos um 
na “SÓ PROGRAMAS” n9 2, no que 


diz respeito aos seus programas, tere- 
mos muito prazer em publicá-los. 


“Comprei e li, com bastante inte- 
resse a revista SÓ PROGRAMAS e, 
realmente concordo com o editorial, 
de que ela veio a preencher grande 
lacuna, para nós, os principiantes em 
“micros”. 

O conteúdo da revista “progra- 
mas” é inestimável. Todos nós gosta- 
mos do “VISUAL” é extraordinário. 

Gostaria, portanto, de perguntar 
se a revista terá assinatura anual, por- 
que queremos assinar para não perder- 


mos nenhum número da mesma. 
Gostaríamos também de fazer uma 


sugestão: os programas deveriam ser 
feitos para um tipo de computador, o 
SINCLAIR e compatíveis, por exem- 
plo, e, uma espécie de adendo no pro- 
grama para os computadores TRS-80 
e compatíveis. Assim: 

40) RAND (Obs.: TRS-80 49) RAN 

DOM) 

59) STOP (Obs.: TRS-80 SPP END) 
etc. 

Não sei se minha idéia tomou-se 
clara, mas assim todos podiam usu- 
fruir dos programas, porque nós os 
principiantes não conseguimos tradu- 
zir o programa de um para outro. 

Sendo o que tinha por agora, encer- 
ro pedindo a resposta da assinatura, 
que é importante. ” 

Antonio Paulo Iannotti 

Araraquara — SP 


Sua sugestão sobre as traduções 
são boas, mas no entanto fugiríamos 
aos nossos padrões, mesmo porque 
a maioria dos programas não são tra- 
duzíveis, por causa das diferenças en- 
tre as linhas. 

Quanto à assinatura, pedimos pa- 
ciência até que concretizemos nossas 
instalações, tão logo estejam prontas 
publicaremos o cupom para assinatura. 


“Meu nome é Alejandro, gosto mui- 
to de computadores, mas ainda não o 
tenho, mas pretendo ter. 

Quando estava lendo o programa 
visual da pág. 32, tentei modificá-lo 
para poder utilizar num TK 85, não 
consegui. 

Eu queria que vocês nos capítulos. 
que vem na seção de cartas, o publicas- 
sem para essa linha. ” 

Alejandro Wilk 

Curitiba — PR 


Caro Alejandro, este programa foi 
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feito para uma linha de microcompu- 
tador que possui display diferente da 
linha TK 85, posteriormente publica- 
remos um programa nesse gênero. 


“Sou leitor de quase todas as suas 
publicações, as quais muito aprecio, 
tenho quinze anos de idade e curso o 
10 colegial, curto muito eletrônica e 
agora informática. 

Apesar de não possuir um micro- 
computador, me interessei muito pela 
revista “SÓ PROGRAMAS”, pois é 
muito interessante como todas as ou- 
tras. 

Surgiu-me uma pequena dúvida: 
ao analisar o programa “SEU LA- 
DRÃO”, pág. 16, notei que as linhas 
560, 57) e 580, possuíam GOTO's 
que desviavxam o programa para a 
linha IPPP, e essa linha não existe, o 


mesmo acontece na pdg. 21, do pro- 
grama “MILIONÁRIO” na linha 1570. 
Gostaria de saber por que foi feito 
assim. ” 

Vicente Levy Guedes 

Presidente Prudente — SO 


É isso aí Vicente, e grato pela pre- 
ferência, por nossas edições. 

Sobre as Inhas que saltam para a 
linha 1000, que não existe, é simples, 
quando o GOTO é executado ele sal- 
ta para a linha 1000, não existindo 
essa linha, ele automaticamente passa 
para a linha que vem a seguir. 

Outras dúvidas que tiver, envie-nos 
cartas, que teremos prazer em respon- 
dé-las. Não pare aí Vicente, você que 
é um rapaz novo e com interesse e 
inteligência, tem um futuro muito 
promissor. 
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O Kono é um antigo jogo de 
tabuleiro, inventado na Coréia. 
Ele é composto de um tabuleiro 
de cinco por cinco e sete peças 
para cada um. Neste jogo não há 
capturas, pois seu objetivo é pas- 
sar suas peças para o outro lado 
do tabuleiro, de forma que fique 
na mesma posição do início, só 
que agora do outro lado do tabu- 
leiro. Seus movimentos são: para 
frente, para trás e diagonal, nun- 
ca em horizontal. Na tela irá apa- 
recer as peças posicionadas, na 
vertical letras e na horizontal nú- 
meros, pelas quais, irá se basear 
para dar seus movimentos, pois 
os movimentos serão introduzi- 
dos de forma alfa-numérica. Ex.: 
“E1D2”. 

ATENÇÃO: Nunca faça movi- 
mentos absurdos, pois o compu- 
tador aceitaria o que estragaria a 
partida. 

BOA SORTE. 
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PROGRAMA DESENVOLVIDO PARA A LINHA SINCLAIR 
MEMÓRIA OCUPADA: 2642 


REM KONO 

REM — LOCALIZAÇÃO DAS PEÇAS NO TABULEIRO — 
LET X=13 

LET Y=141 

DIM Q(25) 

DIM W(6) 

FOR A=1 TO 6 

LET Q(A)=X 

NEXT A 

LET Q(10)=X 

FOR A=20 TO 25 

LET Q(A)=Y 

NEXT A 

LET 0(16)=Y 

REM — MOVIMENTOS DO COMPUTADOR — 
LET W(1)=5 

LET W(2)=4 

LET W(3)=6 

LET W(4)=-4 

LET W(5)=-5 

LET W(6)=-6 

GOSUB 1000 

FOR A=1 TO 26 

FOR B=1 TO 3 

IF 5*INT (A/5)=A AND B=3 THEN GOTO 210 
IF Q(A)=X AND Q(A+W(B))=0 THEN GOTO 270 
NEXT B 

NEXT A 

FOR A=7 TO 25 

FOR B=4 TO 6 

IF O(A)=X AND O(A+W(B))=0 THEN GOTO 270 
NEXT B 

NEXT A 

PRINT “EU ABANDONO. ..” 

STOP 

LET O(A+W(B))=X 

LET O(A)=0 

GOSUB 1000 

REM — SEU MOVIMENTO — 

INPUT A$ 

IF LEN A$< THEN GOTO 310 

IF A$(1) >"“E” OR A$(1) <A” OR A$(3) > “E” OR A$(3) <A” 
OR A$(2) > "'5” OR A$(2) <"'1" OR A$(4) > "'5” OR A$(4) < "1" 
THEN GOTO 310 

LET D=5*(CODE A$-38)+CODE A$(2)-28 

LET E=5*(CODE A$(3)-38)+ CODE A$(4)-28 
LET QO(E)=Y 

LET Q(D)=0 

GOTO 165 

REM — DESENHA O TABULEIRO — 
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1000 LET L=0 

1010 LET I=Q 

1015 FAST 

1020 PRINTATS,0;/1 2 3 4 5” (inverso) 

1030 FO A=1 TO 25 

1040 PRINT CHR$ (O(A));".”; 

1050 IF 5*INT (A/5)=A THEN PRINT CHR$ (A/5+105),,,, 
1060 IF Q(A)=X AND (A > 19 OR A=16) THEN LET L=L+1 
1070 IF Q(A)=Y AND (A<7 OR A=10) THEN LET |=1+1 
1075 IF L=7 OR |=7 THEN GOTO 1120 

1080 NEXT A 

1090 PRINT“1 2 3 4 5” (inverso) 

1095 PRINT 

1100 PRINT AT 15,13:/VOCÊ ";I;AT 5,13;/COMPUTADOR ";L 
1105 SLOW 

1110 RETURN 

1120 IF L> | THEN PRINT “O COMPUTADOR ”; 

1130 IF L<I THEN PRINT “VOCÊ "; 

1140 PRINT” VENCEU COM ";ABS (L-|) ?* 7; PONTOS” 





DIGIKIT + DIGIKIT + DIGIKIT 


SEGUINDO A LINHA E A FILOSOFIA COMERCIAL DA EDITORA FITTIPALDI DE, SEM- | 
PRE COLOCAR AO ALCANCE DOS LEITORES O MATERIAL SUFICIENTE PARA QUE SE | ,, AMADOR 
POSSA COMPROVAR, ESTUDAR E ATÉ MESMO TIRAR PROVEITO DE FORMA DEFINITIVA | O DA 
DAS MATÉRIAS CONTIDAS NAS REVISTAS, A REVISTA =5T. + SiFINLANÇA NESTA | ro 4176 
EDIÇÃO DOIS SENSACIONAIS KITS PARA MONTAR, KITS ESTES, QUE SERÃO OS PRIMEI- pn 
ROS DE UMA GRANDE LINHA PRETENDIDA PELA DIREÇÃO DA EMPRESA E QUE, DE | ÃO PAULO 
CERTO MODO VÃO AGRADAR A MAIORIA DOS AMIGOS LEITORES. 

OS KITS SERÃO SEMPRE COMERCIALIZADOS A PREÇO COMPATIVEL COM A REALI- SP 
DADE COMERCIAL DA PRAÇA, E, VENDIDOS POR MEIO DE REEMBOLSO POSTAL PELA: 
DIGIKIT COMÉRCIO E EXPORTAÇÃO DE COMPONENTES ELETRONICOS LTDA., QUE É UMA 
EMPRESA DO GRUPO FITTIPALDI, PORTANTO COM IDONEIDADE COMPROVADA. 
NÃO PERCA TEMPO, PREENCHA O CUPOM E FAÇA O SEU PEDIDO HOJE MESMO. 


















SUPER FONTE =EW TO + Gusto 
PROJETADO ESPECIALMENTE PARA RESOLVER OS PROBLEMAS DE ALIMENTAÇÃO DO 
SEU M/CRO OU V/DEO GAME DE QUALQUER MARCA. Cr$ 36.000,00 






TAPELOADER 

INCRIVEL SOLUÇÃO PARA GRAVAÇÃO E 
REPRODUÇÃO DE PROGRAMAS EM FITA 
CASSETE PERMITINDO PASSAGEM DE FITA 
PARA FITA, MESMO EM PROGRAMAS FECHA: 
DOS. Cr$ 15.500,00 


















SIM, DESEJO RECEBER PELO REEMBOLSO POSTAL OKIT.............................. 
PELO QUAL PAGAREI À QUANTIA DE Cr$ .................... MAIS DESPESAS POSTAIS. 
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RACHANDO A CUCA 





Este programa é ótimo para 
empresas que submetem a testes 
os candidatos às vagas. É com- 
posto de dez questões que envol- 
vem matemática, inteligência e 
sabedoria, sendo necessário pres- 
tar bastante atenção às pergun- 
tas, pois elas têm muita impor- 
tância sobre os problemas. Além 
disso serve para se divertir com 
os amigos, testando os seus po- 
tenciais. As respostas serão dadas 
no próximo número, por enquan- 
to tente resolvê-los. 

Não rache a cuca. 
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PROGRAMA DESENVOLVIDO PARA A LINHA SINCLAIR 
MEMÓRIA OCUPADA: 6055 


REM — TESTES DE O. |. — 

RAND 

DIM A(3) 

LET PO=Q 

LET J=6 

LET C=7 

LET D=19 

LET B=43 

LET K=INT (RND*9)+1 

FAST 

PRINT “QUAIS NÚMEROS ESTÃO FALTANDO ?” 

PRINT AT 2,6:1- “K+J; CEKAJ*D: CP CKAJHS; KATO; o 
K+J*6 (interrogação em inverso) 

PRINT AT 4,6;2- "CC; MCT MECAJ*D: CAI *I3;O O? C+J*D 
(interrogação em inverso) 


PRINT AT 6,6;3- "K+HJ+C; O CEKATHIAC;O CEK+J*DAC; 2 EK +J* 
9+C;” ":K+J*11+C (interrogação em inverso) 

FOR F=1TOS3 

INPUT A(F) 


IF A(1)< > K+J*3 OR A(2)< > C+J*4 OR A(3)< > K+J*7+C THEN 
PRINT AT 8+F*2,6:;F; “= ERRADO” (“errado” em inverso) 
IF A(F)=K+J*3 OR A(F)=C+J*4 OR A(F)=K+J*7+C THEN PRINT AT 
8+F*2,6;F;'= CORRETO” 

NEXT F 

IF A(1)=K+J*3 THEN LET PO=PO+1 

IF A(2)=C+J*4 THEN LET PO=PO+1 

IF A(3)=K+J*7+C THEN LET PO=PO+1 

SLOW 

PRINT AT 21,5:/QUESTÕES CERTAS: “;PO 

FOR F=0 TO 50 

NEXT F 

CLS 

FAST 

PRINT “QUAL NÚMERO ESTÁ FALTANDO ?” 

FOR F=9 TO 31 

LET D=D+1 

LET B-=B-1 

PLOT B,F 

PLOT D,F 

PLOT 19,F 

PLOT 31,F 

PLOT 43,F 

NEXT F 

FOR F=19 TO 43 

PLOT F,9 

PLOT F,20 

PLOT F,31 

NEXT F 

PRINT AT 7,13;/1";AT 7,17;3";AT 10,19;74";AT 13,19;7";AT 15, 
16:1";AT 15,13;/18";AT 13,11;/29:AT 10,11;2” 
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270 INPUT A 

280 IF A=47 THEN PRINT AT 19,7;“CORRETO” 

285 IF A=47 THEN LET PO=PO+1 

290 IF A< >47 THEN PRINT AT 19,7;/ERRADO”' (inverso) 

295 SLOW 

300 PRINT AT 21,5;/QUESTÕES CERTAS: “;PO 

310 FOR F=0TO 50 

320 NEXT F 

322 CLS 

324 FAST 

326 PRINT “QUAIS NÚMEROS ESTÃO FALTANDO ?” 

330 FOR F=15 TO 27 

340 PLOT 12,F 

345 PLOT 22,F 

350 PLOT 19,F 

355 PLOT 29,F 

360 PLOT 32,F 

365 PLOT 39,F 

370 PLOT 42,F 

375 PLOT 49,F 

Adm FOR F=12 TO 49 

420 PLOT F,15 

422 PLOT F,21 

426 PLOT F,27 

430 NEXT F 

440 PRINT AT 9,3;/1-";AT 9,7;02";AT 9,12;"05";AT 9,17; PP AT9, 
22:11" 

450 PRINT AT 12,3;/2-":AT 12,7;/81";AT 12,12;27";AT 12,17;22""; 
AT 12,22:'03" 

460 INPUT A 

470 IF A=8 THEN PRINT AT 15,10;'1- CORRETO” 

475 IF A=8 THEN LET PO=PO+1 

480 IFA< >8 THEN PRINT AT 15,10;/1- ERRADO” (“errado” em in 
verso) 

490 INPUT B 

500 IF B=9 THEN PRINT AT 17,10;'2- CORRETO” 

505 IF B=9 THEN LET PO=PO+1 

510 IFB<>97THEN PRINT AT 17,10:'2- ERRADO” (“ERRADO” em 
inverso) 

512 SLOW 

515 PRINT AT 21,5; “QUESTÕES CERTAS: “;PO 

520 FOR F=0TO 5O 

530 NEXT F 

535 CLS 

540 FAST 

550 PRINT “QUAL DESTAS FIGURAS NÃO PERTENCE AO GRUPO ?” 

560 FOR F=b5 TO 26 STEP 3 

570 FOR N=b TOS 

580 PRINT AT N,F:;CHR$8 

585 PRINT AT N+6,F:CHR$8 

586 FOR G=5 TO 14 STEP 3: 

587 PRINT AT G,N:CHR$ 8;AT G,N+6;CHR$ 8;AT G,N+12:CHR$ 8;AT 
G,N+18;CHR$8 

589 NEXT G 
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590 
600 
610 


620 


630 


640 


650 
660 
670 
680 
690 
700 
710 
7120 
125 
730 
740 
750 
760 
770 
180 


790 
800 
810 
820 
830 
840 
850 
860 
870 
890 
892 
894 
896 
900 
910 


920 
930 
940 
950 
960 
970 


NEXT N 

NEXT F 

PRINT AT 6,6;"(1 gráfico shift Y)(1 gráfico shift T)";AT 6,12;(1 
gráfico shift R)(1 gráfico shift E)";AT 6,18; (2 gráfico shift Y; AT 
6,24;"(1 gráfico shift 5)(1 gráfico shift 8)" 

PRINT AT 7,6;(1 gráfico shift T)(1 gráfico shift Y)";AT 7,12;(1 
gráfico shift Q)(1 gráfico shift W)";AT 7,18;"(2 gráfico shift YE; AT 
7,24;(1 gráfico shift 8)(1 gráfico shift 5)” 

PRINT AT 12,6;'(2 gráfico shift 7)";AT 12,12;(1 gráfico shift 8)(1 


- gráfico shift 5)";AT 12,18;(1 gráfico shift Q)(1 gráfico shift W)”, AT 


12,24;'(1 gráfico shift T)(1 gráfico shift YW)” 

PRINT AT 13,6;"(2 gráfico shift 6)";AT 13,12;"(1 gráfico shift 8)(1 
gráfico shift 5);AT 13,18;(1 gráfico shift W)(1 gráfico shift Q)'';AT 
13,24;(1 gráfico shift Y)(1 gráfico shift T)” 

FOR F=4 TO 24 STEP6 

PRINT AT 11,F:CHRS$ (F/6+160) 

PRINT AT 5,F;CHR$(F/6+156) 

NEXT F 

INPUT A 

IF A=3 THEN PRINT AT 16,13;//“/CORRETO” 

IF A=3 THEN LET PO=PO+1 

IF A< > 3 THEN PRINT AT 16,13;//ERRADO (inverso) 

SLOW 

PRINT AT 21,5;/QUESTÕES CERTAS: ":PO 

FOR F=0TO 5O 

NEXT F 

CLS 

FAST 

PRINT “EXISTE UMA COMBINAÇÃO EM CADA PALAVRA, QUE 
FORMAM UM GRUPO. QUAL DELAS NÃO PERTENCE AO GRUP 
O?” 

PRINT AT 5,11;71-PORTE” 

PRINT AT 6,11;'2-PODER” 

PRINT AT 7,11;'3-BRONCA” 

PRINT AT8,11;"4-DEVER” 

INPUT A 


IF A=2 THEN PRINT AT 15,13;/CORRETO” 

IF A=2 THEN LET PO=PO+1 

IFA< >2 THEN PRINT AT 15,13;/ERRADO”' (inverso) 
SLOW 

PRINT AT 21,5;“QUESTOES CERTAS: ";PO 

FOR F=0 TO 50 

NEXT F 

CLS 

FAST 

PRINT “QUAL DESTAS COMBINAÇÕES POSSUI UMA LETRA A 
MAIS ?” 


PRINT AT 5,13;“1= G-H” 
PRINT AT 6,13;'2= A-N” 
PRINT AT 7,13;'3= O-A” 
PRINT AT 8,13;"4=B-D-|"' 
PRINT AT 9,13;"5= D-E-F” 
INPUT A 
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980 

982 

984 

985 

986 

988 

989 

990 

999 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
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DIVIRTA-SE COM A Ed ds 
QE 





ADQUIRA JÁ ESTE 


INCRÍVEL SUPORTE 


PRÁTICO PARA O 
SEU APRENDIZADO 


IF A=3 THEN PRINT AT 15,13;/“CORRETO” 

IF A=3 THEN LET PO=P0+1 

IFA< >3THEN PRINT AT 15,13;“ERRADO” (inverso) 
SLOW 

PRINT AT 21,5;“QUESTÕES CERTAS: “;PO 

FOR F=0 TO 05 

NEXT F 

CLS 

FAST 


PRINT “QUAL DESTAS COMBINAÇÕES ESTÁ IN-CORRETA ?” 


PRINT AT 5,13;/1- ACBC” 

PRINT AT 6,13;'2- BCCC” 

PRINT AT 7,13;'3- BCDC” 

PRINT AT 8,13;'4- DCEC” 

PRINT AT 9,13;”5- CCDC” 

INPUT A 

IF A=3 THEN PRINT AT 15,13;//CORRETO” 

IF A=3 THEN LET PO=PO+1 

IFA< >3 THEN PRINT AT 15,13;//ERRADO” (inverso) 
SLOW 

PRINT AT 21,5:/QUESTÕES CERTAS: “;PO 

FOR F=0 TO 50 

NEXT F 

io 

PRINT AT 8,4:/VOCÊ ACERTOU “:PO;” QUESTÕES” 
PRINT AT 9,11;“GRAU "; 

IF PO=0 THEN PRINT “HORRIVEL” 

IF PO > =1 AND PO< =3 THEN PRINT “INFERIOR” 
IF PO >3 AND PO <7 THEN PRINT “MÉDIO” 

IF PO=7 THEN PRINT “ACIMA DA MÉDIA” 

IF PO > 7 AND PO< 10 THEN PRINT “SUPERIOR” 
IF PO=10 THEN PRINT “INCRIVEL” 

STOP 
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Este é um jogo no qual você 
será um desarmador de bombas. 
Você se encontrará num edifício 
de uma sede secreta com a mis- 
são de desarmar três bombas que 
foram colocadas no último andar. 
Como este edifício pertence a 
uma sede secreta ele é bem siste- 
mático, pois para passar de um 
andar a outro é necessário acio- 
nar um botão (simbolizado pelo 
“$" inverso) que faz descer uma 
escada, mas o edifício foi invadi- 
do por espiões, os quais estão 
vigiando esses botões, para evitar 
que o prédio seja salvo. A cada 
andar que estiver terá que enfren- 
tar esses espiões, que além de es- 
tarem vigiando os botões, atiram 
bombas controladas por eles, vo- 
cê deve evitar essas bombas sal- 
tando sobre elas, caso contrário 
será eliminado. Sua defesa é uma 
arma, infelizmente de pouco al- 
cance, o que o força a ter que 
chegar perto do inimigo para al- 
vejá-lo, as bombas se neutralizam 
e param. No primeiro andar terá 
que evitar as bombas, eliminar o 


Ea 
AE 
a 4 
aa 
ad 


DESARMADOR 


BOMBAS 
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espião e acionar o botão. Já no 
segundo andar terá que puxar 
uma alavanca (simbolizada por 
um J) fazendo com que o botão 
surja, porém, para puxar esta ala- 
vanca é necessário saltar no local 
exato, caso contrário ela se auto- 
destruirá, o que obstará a sua su- 
bida para outro andar, e você fa- 
lhará na missão. No terceiro an- 
dar terá que puxar outra alavanca 
(simbolizada pelo ”?'"') para sur- 
gir a alavanca “J”' que mostrará o 
botão. No quarto andar, o pro- 
cesso é o mesmo que no terceiro, 
apenas que a primeira alavanca 
está situada em posição diversa e 
simbolizada pelo “£”. No último 
andar só terá que pegar a bomba, 
depois que pegá-la irá voltar ao 
primeiro andar retornando todo 
o processo. 

Seus controles são: 

“5º! (esquerda) 

“7"" (salto) 

“8"" (direita) 

“O (tiro) 

BOA SORTE, e cuidado com 
os espiões camicases. 
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151 
152 


153 
154 
155 
156 
157 
158 
159 
165 
166 


167 
168 
169 
170 
171 
172 
173 
174 
175 
179 
180 
181 





PROGRAMA DESENVOLVIDO PARA A LINHA SINCLAIR 
MEMÓRIA OCUPADA: 4350 


REM EDIFÍCIO 
RAND 
FAST 





LET X=19 

LET PO=Q 

LET Y=1 

LET W=3 

LET C=19 

LET D=30 

LET A=19 

LET S=0 

LET M=19 

REM — DESENHA A TELA — 

PRINT AT 0,0; "PONTOS: ” 

PRINT AT 3,28; “BBB” 

FOR F=0 TO 31 

PRINT AT 4,F:CHR$ 128;AT 8,F;CHR$ 128;AT 12,F;CHRS$ 128;AT 
16,F;CHR$ 128;AT 20,F;CHR$ 128 

NEXT F 

FOR F=7 TO 19 STEP4 

PRINT AT F,D:“Q";AT F,D-1;(1 gráfico shift 8)" 

NEXT F 

PRINT AT 19,D+1;CHR$ 141 

PRINT AT 14,9:CHR$ 47 

FOR F=23 TO 31 

PRINT AT 6,F:CHR$ 128:AT 10,F;CHR$ 128;AT 14,F;CHR$ 128;AT 
18,F:CHR$ 128 

NET F 

FOR F=b TO 17 STEP 4 

PRINT AT F,23;:'(1 gráfico shift 5)”; AT F,31;(1 gráfico shift 8)" 
NEXT F o 

FOR F=3 TO 15 STEP 3 

PRINT AT 5,F;CHR$ 128:AT 9,F:CHR$ 128;AT 13,F;CHRS$ 128 
NEXT F 

FOR F=3 TO 6 

PRINT AT 14,F+9:CHR$ 128;AT 6,F;CHR$ 128;AT 6,F+9;CHR$ 128; 
AT 10,F:;CHR$ 128;AT 10,F+9;CHR$ 128 

NEXT F 

SLOW 

GOTO 180 

FOR F=X TO 20 

PRINT AT F,Y:(1 gráfico shift 6);AT F,Y;.” 

NEXT F 

FOR F=0 TO 50 

NEXT F 

GOTO 800 

REM — PASSA PARA OUTRO ANDAR — 

LET L=2 

LET A=19 
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182 
183 
184 
185 
190 
191 

192 
196 
197 
200 
210 
235 
240) 
270 
280 
290 
400 
449 
450 
451 

453 
455 
456 
457 
458 
460 
470 
480 
490 
500 
501 

505 
510 
511 

515 
520 
525 
530 
532 
535 
545 
546 
b47 
549 
550 
560 
575 
585 
590 
595 
599 
600 
605 
620 


LET X=19 

LET Y=Q0 

PRINT AT 10,3:CHR$ 15;AT 5,18;CHR$ 128;AT 6,18;CHR$ 12 
LET M=X 

LET PO=PO+INT (RND*10) 

PRINT AT 0,7;PO 

FOR G=0 TO 300 

IF L=2 THEN GOSUB 450 

LET Z=0 

PRINTATXY;CFTATXY; E” 

LET Y=Y+(INKEY $="8" AND Y <31)-(INKEY$="5" AND Y > 0) 
PRINTATX,Y:; 

LET P=PEEK 16398+256*PEEK 16399 

IF PEEK P=141 THEN GOSUB 600 

IF PEEK P=45 THEN GOTO 650 

IF PEEK P=39 THEN GOTO 700 

NEXT G 

REM ROTINA PRINCIPAL 

LET V=28 

PRINT AT X+1,Y:CHR$ 128 

FOR 0=28 TO OSTEP — 1 

LET Z=INT (RND*3)+1 
PRINTATAVUSATAV+H;O ” 

IF Z=2 OR Z=3 THEN LET V=V-1 

IF V=0 THEN GOTO 450 
PRINTATXYUETATXY-1;O CATKY; 
PRINTATA,QO;*":AT A,O+41;" ” 

LET Y=Y+(INKEY$="8" AND Y <31)-(INKEY$="5" AND Y > 0) 
LET X=M 

IF INKEY$="7" AND S=M THEN LET X= X-1 
IF INKEY$="7" AND S=M THEN LET Y=Y+2 
LET S=X 

IF INKEY$="'0" AND X=M THEN GOSUB 550 
IF X=A AND Y=V OR X=A AND Y=Q THEN GOTO 170 
PRINTATX,Y; 

LET P=PEEK 16398+256*PEEK 10399 

IF PEEK P=128 THEN LET X=M 

IF PEEK P=15 THEN PRINT AT 10,9:CHR$ 47 
IF PEEK P=12 THEN PRINT AT 6,9;CHR$ 47 

IF PEEK P=47 THEN PRINT AT A,31;CHR$ 141 
NEXT OQ 

PRINT AT A,0;(31 espaços)” 

GOTO 450 

REM — ROTINA DE TIRO — 

FOR F=Y TO Y+10 

PRINT ATX,F;“-";AT X,F;” 

IF F=30 THEN LET L=0 

IF F=30 THEN GOTO 190 

NEXT F 

RETURN 

REM — DESENHA ESCADA — 

LET Z=INT (RND*15) 

FOR F=X-4 TO X 

PRINT AT F,Z;"H” 
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630 
631 
632 
640 
649 
650 
651 
652 
653 
654 
655 
660 
670 
680 
681 
682 
690 
699 
700 
701 
702 
710 
720 
730 
740 
750 
755 
800 
810 


NEXT F 

LET PO=PO+1 

PRINT AT 0,7;PO 

RETURN 

REM ALTERA COORDENADAS PARA O ANDAR SEGUINTE 
LET A=A-4 

LET M=X-4 

LET PO=PO+INT (RND*100) 

PRINT AT 0,7;PO 
PRINTATXNY;CFSATXY;O 

LET Y=Y+(INKEY$="8" AND Y <31)-(INKEY$="5" AND Y > 0) 
PRINTATX-1,Y; 

LET P=PEEK 16398+256*PEEK 16399 

IF PEEK P=45 THEN LET X=X-1 

IF X=15 OR X=11 OR X=7 THEN GOTO 450 
IF X=3 THEN GOTO 190 

GOTO 654 

REM — ROTINA DAS ETAPAS — 

LET W=W-1 

LET PO=PO+200 

PRINT AT 0,7;PO 


IF W=2 THEN PRINT AT 3,28;* BB” 

IF W=1 THEN PRINT AT 3,28;” B” 

IF W=Q0 THEN GOTO 750 

GOTO 125 

CLS 

PRINT AT 11,2;/PARABENS. DESARMOU AS TRÊS.” 


PRINT AT 12,4;“SEUS PONTOS FORAM:";PO 
STOP 
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SIMPLES E OBJETIVAS,COMO 

VOCÊ PEDIU! EM TODAS AS 
BANCAS! RESERVE,DESDE JÁ, 
O SEU PRÓXIMO EXEMPLAR! 
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QUADRO GIRATÓRIO 


O quadrado giratório é um jo- 
go similar ao cubo mágico. Veja 
a figura 1. Esta é a forma que o 
quadrado aparecerá inicialmente, 
mas o computador interpreta 
como mostra a figura 2. No co- 
meço você irá embaralhar o cubo 
apertando NEWLINE dez vezes, 
depois para arranjá-lo novamente 
terá que usar códigos numéricos 
de acordo com a figura 2. Ex. 
Veja a figura 3, se apertar a tecla 
3, e NEWLINE claro, o quadrado 
A irá fazer um movimento girató- 
rio no sentido horário; se digitar 
o número 12, então o quadrado 
B irá girar, sempre no sentido 
horário. 

Veja as figuras 4 e 5, são dois 
exemplos de como arranjar o 
cubo novamente, além destas 
você poderá criar outras, em par- 
ticular achamos a forma da figu- 
ra 4 mais difícil. 

Divirta-se, mas não vá ficar 
com a cabeça girando. 
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FIGURA - 
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130 
140 
150 
155 
160 
170 
171 
172 
179 
180 
190 
200 
210 
220 
230 
240 
250 
260 
265 
270 
2175 
280 
290 
299 
300 
310 
320 
330 
340 
350 
360 
390 


PROGRAMA DESENVOLVIDO PARA A LINHA SINCLAIR 
MEMÓRIA OCUPADA: 2149 


REM — QUADRADO GIRATÓRIO — 

RAND. 

LET F=1 

DIM A(4) 

LET M=1 

DIM B(16) 

LET B=1 

REM — ARRANJO INICIAL DO QUADRADO — 
FOR D=1 TO 4 

LET C=(B=1)+2*(B=3)+3*(B=9)+4*(B=11) 

LET B(B)=C 

LET B(B+1)=C 

LET B(B+4)=C 

LET B(B+5)=C 

LET B=B+2*(B=1)+6*(B=3)+2*(B=9) 

NEXT D 

GOSUB 300 

IF F<11 THEN LET X=2+INT(RND*11) 

IF F> 10 THEN PRINT AT 21,5:/ENTRE COM O NUMERO” 
IF F> 10 THEN INPUT X 

IF X=5 OR X=9 THEN GOTO 150 

IF F> 10THEN PRINT AT 14,2:''MOVIMENTOS GASTOS:“M 
IF F> 10THEN LET M=M+1 

REM — ROTINA DE ROTAÇAO — 

LET A(1)=B(X) 

LET A(2)=B(X+4) 

LET A(3)=B(X+3) 

LET A(4)=B(X-1) 

LET B(X)=A(4) 

LET B(X+4)=A(1) 

LET B(X+3)=A(2): 

LET B(X-1)=A(3) 

GOSUB 300 

IFF< 10 THEN PRINT AT 21,5;“PRESSIONE NEWLINE” 


IF F< 10 THEN INPUT U$ 

PRINT AT 21,2;(30 espaços)” 

LET F=F+1 

GOTO 150 

REM — IMPRIME O QUADRADO — 
PRINT AT 3,8; 

FOR B=1 TO 16 

PRINT CHR$ (B(B)+156);" "; 

IF 4*INT (B/4)=B THEN PRINT AT 3+(B/2),8: 
NEXT B 

PRINT AT 11,8; 

IFF< 10 THEN PRINTYROTAÇAÃO: ";F 
RETURN 
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Neste jogo você será um dete- 
tive do D. S. (Departamento Se- 
creto), com a missão de levar até 
o D. S. uma mensagem em códi- 
go que você mesmo denominará 
no começo do jogo, lógico por 
estar fora do país é que você foi 
solicitado para trazer a mensa- 
gem, mas, no decorrer do jogo 
irão acontecer surpresas inespe- 
radas. 

No começo do jogo você pos- 
sui $& 30 na sua carteira, como o 
D. S. é ultra secreto e fica no 
Brasil, terá que pagar para entrar 
no D. S., portanto terá que 
acumular dinheiro também. 

Você começará no passo 1, e é 
no décimo passo que estará no 
D. S. A cada passo encontrará 
um problema, tente resolvê-lo, 
pois caso não seja bem sucedido 
perderá dinheiro, passo e até o 
jogo, portanto BOA SORTE. 

E cuidado com os trombadi- 
nhas. 
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PROGRAMA DESENVOLVIDO PARA A LINHA SINCLAIR 
MEMÓRIA OCUPADA: 


4 DIM A(100) 
5 DIM B(14) 

10 SLOW 

40 LET W=1 

50 LET X=Q0 

60 LET S=30 

70 PRINT AT 11,8;“DIGITE SUA SENHA” 

80 INPUT B(14) 
210 IFW< 1 AND RND>.8 THEN GOTO 1730 
220 IF W< THEN LET W=1 
230 SCROLL 

235 IF W> 10 THEN LET W=10 
240 PRINT TAB 3;“ESTE E O PASSO” ;W 

250 IF W=1 THEN GOTO 1690 

255 SCROLL 

260 SCROLL 

270 PRINT “VOCÊ ESTÃ A= ":;CHR$ (38W);” = DO DS.” 
280 SCROLL 

290 SCROLL 
295 IFS<1 THEN LET S=INT (RND*5)+1 
300 PRINT “VOCE TEM $";S;” NA SUA CARTEIRA” 
305 LET X=X+1 
310 SCROLL 
315 SCROLL 
320 PRINT “— ESTE E O PROBLEMA “;X;“ —" 
330 SCROLL 
340 SCROLL 
350 LET K=2+NT (RND*5) 
360 PRINT ““VOCE.TEM = ";CHR$ (28+K); ="; 
380 LET A=INT (RND*4) 
390 IF A=Q THEN PRINT “PORTAS” 
400 IF A=1 THEN PRINT “RUAS” 
40 IFA<>2THEN GOTO 449 
420 PRINT “PASSARELAS” 
440 IFA<>3THEN GOTO 470 
450 PRINT “AVENIDAS” 
470 SCROLL 
475 SCROLL 
480 PRINT “QUAL VOCE VAI USAR?” 
490 INPUT B 
495 IFB>KORB<1 THEN GOTO 490 
500 GOSUB 2000 
510 IF RND*10<30R B=A THEN GOTO 1170 
530 LET C=INT (RND*4) 
540 SCROLL 
550 SCROLL 
555 IF C=0 THEN PRINT “BABACA”; 
560 IF C=1 THEN PRINT “IDIOTA”; 
565 IF C=2 THEN PRINT “HUM. ..”; 
570 IF C=3 THEN PRINT “ATENÇAO”; 
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620 
625 
630 
632 
680 
690 
700 
710 
720 
730 
740 
750 
810 
820 
830 
840 
850 
860 
900 
910 
915 


922 
923 
925 
930 
935 
940 
945 
950 
955 
960 
963 
965 
968 
970 
975 


982 
985 
987 


991 
992 


993 


995 
997 


1005 
1010 
1020 
1030 
1040 
* 1050 


PRINT “VOCE ESTÁ CARA A CARA” 

SCROLL 

PRINT TAB 8:“COM UM” 

SCROLL 

LET A=INT (RND*5) 

IF A=Q0 THEN LET B$=“POLICIAL” 

IF A=1 THEN LET B$="TURISTA” 

IF A=2 THEN LET B$-“COBRADOR” 

IF A=3 THEN LET B$="MENDIGO” 

IF A=4 THEN LET B$='MOTORISTA” 

LET A=INT (RND*7) 

IF A=Q0 THEN LET C$=" INGRESSO DO PARQUE” 
IF A=1 THEN LET C$=" PASSE DO D.S.” 

IF A=2 THEN LET C$=” CARTÃO POSTAL DO IBIRAPUERA” 
IF A=3 THEN LET C$-=" MAPA DE SANTANA” 
IF A=4 THEN LET C$=“ DELICADO DOBERMAN” 
IF A=5 THEN LET C$="PACOTE DE BATATAS” 
IF A=6 THENLET C$="INGRESSO PRO CIRCO” 
PRINT B$ 

SCROLL 

PRINT TAB 8;“COM UM” 

SCROLL 

PRINT C$ 

SCROLL 

SCROLL 

PRINT TAB 3:70 QUE VOCE FAZ ?” 

SCROLL 

SCROLL 

PRINT “(1)- COSPE” 

SCROLL 

PRINT "(2)- CHORA” 

SCROLL 

PRINT '(3)- GRITA POR SOCORRO” 

SCROLL 

PRINT "(4)- BATE NELE COM UM PORRETE” 
SCROLL 

PRINT '(5)- DIZ QUE NÃO FALA PORTUGUES” 
SCROLL 

PRINT "“(6)- DIZ QUE E ESTRANGEIRO” 
SCROLL 

PRINT "(7)- TOMA UM AVIÃO PRO CONGO” 
SCROLL 

PRINT “'(8)- SAI CORRENDO” 

SCROLL 

PRINT "“(9)- TENTA SUBORNA-LO” 

SCROLL 

PRINT "“(10)- DISFARÇADAMENTE VAI EMBORA” 
INPUT A 

IFA>100RA<1 THENGOTO 1000 

LET B=INT (RND*10)+1 

GOSUB 2000 

IF INT (RND*5)=0 OR A<B THEN LET A=B 

IF A=B THEN PRINT “VOCÊ TAPEOU O ":B$ 

IF A=B THEN LET S=S+1+INT (RND*10) 
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1055 
1060 
1070 
1080 
1100 
1105 
1110 
1120 
1125 
1127 
1130 
1135 
1137 
1138 
1140 
1170 


1180 


1185 
1186 
1190 
1240 
1245 
1250 
1255 
1262 
1265 
1270 
1280 
1290 
1295 
1300 
1310 


1315 
1320 
1330 


SCROLL 

IF A=B THEN PRINT TAB 4;“E AGORA TEM $";S 

IF A=B THEN LET W=W+1+INT (RND*4) 

IF W> 10 THEN LET W=10 

IFA< >B THEN PRINT“O "“;B$;' TAPEOU VOCE” 
SCROLL 

IFA< >B THEN PRINT TAB 9;“COM MALICIA” 


IFA< >BTHEN LET S=S-1-INT (RND*5) 

SCROLL 

SCROLL | 

IF W<10 THEN PRINT TAB 5;/VOCÊ ESTA NO PASSO” 


SCROLL 
IFW<10 THEN PRINT TAB 14;'= ":CHR$ (28+W);” 
SCROLL 

GOTO 160 

LET A=INT (RND*4) 

GOSUB 1240* (A=0)+1340* (A=1)+1380*(A=2)+1510*(A=3) 
SCROLL 

SCROLL 

GOTO 160 

SCROLL 

SCROLL 

PRINT TAB 8;“VOCE SE ESTATE LOU” 

LET B=INT (RND*4) 

SCROLL 

IF B=0 THEN PRINT TAB 7;“EM FRENTE DO OBELISCO” 
IF B=1 THEN PRINT TAB 9;/DE COSTAS” 

IFB< >27THENGOTO 1310 

PRINT TAB 4;“ATROPELADO POR UM CARRO” 
SCROLL 

PRINT TAB 6;“NO CIRCO PURURUCA” 

IF B=3 THEN PRINT TAB 2;“PISANDO NUMA CASCA DE BANA 
NA” 

LET W=W-1 

LET S=S-1-INT (RND*2) 

RETURN 


1340 SCROLL 


1345 
1347 
1348 
1350 
1360 
1370 
1380 
1390 
1395 
1400 
1405 
1410 
1420 
1430 
1440 
1450 
1470 


PRINT TAB 3;“VOCÊE FOI ROUBADO POR” 
SCROLL 

PRINT TAB 5;INT (RND*9)+1;“TROMBADINHAS” 
LET W=W-1 

LET S=S-1-INT (RND*2) 

RETURN 

SCROLL 

PRINT TAB 9;”VOCE GANHOU UM” 


LET D=INT (RND*6) 

SCROLL 

IF D=0 THEN PRINT TAB 7;“ VIDRO DE TEMPERO” 

IF D=1 THEN PRINT “INGRESSO PRO ESTÁDIO” 

IF D=2 THEN PRINT “UM BANCO DE JARDIM” 

IF D=3 THEN PRINT “PASSE PRA OSASCO” 

IF D=4 THEN PRINT “PACOTE DE BALAS GRUDENTAS” 

IF D=5 THEN PRINT “CURSO DE VENDEDOR DE SEGURO” 
LET S=S+1+INT (RND*5) 
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1480 
1490 
1500 
1510 
1515 
1520 
1530 
1540 
1550 
1570 
1580 
1590 
1690 
1700 
1705 
1710 
1715 
1720 
1722 
1724 
1730 
1732 


1733 
1734 
1740 


1745 
1750 
1770 
1780 
2000 
2010 
2020 
2030 
3000 
3010 
3020 
3030 
3040 
3050 
3055 
3060 
3070 
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LET W=W+1+INT (RND*3) 

IFW>10THEN LET W=10 

RETURN 

SCROLL 

PRINT “VOCE ENCONTROU UM MAPA DE 5. P.” 
SCROLL 

SCROLL 

PRINT “ESCOLHA SEU BONUS (DE ATE $5)” 
INPUT A 

LET S=S+A*(A < 6) 

LET W=W-INT (A/2) 

RETURN 

GOSUB 2000 

PRINT “VOCE ESTA NA PORTA DO D. S.” 
SCROLL 

PRINT “VOCE TEM $35 QUAL A SENHA ?...” 
SCROLL 

INPUT U 

IFU< > B(14) THEN GOTO 3000 

PRINT TAB 4;“0. K. ESTÁ É A SENHA” 
FOR N=1TO5 

GOSUB 2000 


NEXT N 
PRINT AT 0,0; 

IFS<35 ANDWD>D5 THEN PRINT “VOCE TEM SÓ $;S;“ENTA 
O VOCE" “FOI DEPORTADO...”: 

IF W <1 THEN PRINT “VOCE FOI UM PESSIMO DETETIVE”; 
IFW<1 THEN GOTO 1740 

PRINT “PARABENS VOCÊ CUMPRIU SUA MISSAO”; 

GOTO 1770 

FOR |=1 TO 5 

SCROLL 

NEXT | 

RETURN 

PRINT TAB 6;“ESTA NAO E A SENHA” 

SCROLL 

PRINT TAB 4;/'PORTANTO E NOSSO INIMIGO” 

SCROLL 

PRINT TAB 14;“E MORRERA” 

SCROLL 

CLS 

PRINT“RA TA TA "; 

GOTO 3660 
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Neste número usaremos nova- 
mente o programa editado na SÓ 
PROGRAMAS Nº 2, com algu- 
mas alterações e correções de er- 
ros deixados propositalmente, 
com a finalidade de despertar 
nossos leitores de o por quê dos 
tão famigerados erros, como: 
subscrito fora de faixa, não há 
mais espaço na tela, etc. 

Daremos dicas de incrementa- 
ção de pontos, economia de ME- 
MÓRIA e efeitos visuais. 

Começaremos com os erros, 
que são: 

10) Após o tiro, a nave inimiga 
continua impressa na tela. 

20) A nave inimiga sempre sai 
do canto esquerdo da tela, o que 
limita seus movimentos. 

30) A nave amiga ultrapassa as 
colunas Q e 31, fazendo que surja 
erro B. 

Quanto ao primeiro erro, bas- 
ta acrescentar a linha: 


252 PRINT AT U,S; “(3 gráfico 
shift A)”. 


O segundo erro também é mui- 
to fácil de superar, basta alterar 
a coluna de S, em vez de: 40 LET 
S=0, digite: 40 LET S-=11, fazen- 
do com que,em vez da nave ami- 
ga sair da coluna (), saia da colu- 
na 11. 

O terceiro erro, além de supe- 
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rá-lo, diminuiremos uma linha e 
economizaremos memória, pri- 
meiro elimine a linha 140, e no 
lugar de: 


130 IF INKEY$="8" THEN LE 
TY=Y+1 

digitaremos: 

130 LET Y=Y+(INKEY$="8" A 
ND Y < 29)-(INKEY$="5" 
ANDY > 0) 


Agora iremos acrescentar um 
efeito visual da seguinte forma: 


10) Elimine a linha 210, digite 
as seguintes linhas: 


217 PRINT AT U,S; <=>" (inv 
erso) 
218 PRINTATU,S;'<=>" 


Agora a cada tiro que der, a 
nave inimiga paralisará e ficará 
piscando. 

Por último, incrementaremos 
os pontos digitando: 


272 LET N=INT (RND*10)+1 
275 IF N > 5 THEN LET PO= 
PO+20 


Cada vez que N for maior que 
5 acrescentará vinte pontos no 
placar. 

A seguir temos o programa ori- 
ginal, digite-o desta forma, rode- 
o e analise, depois faça as altera- 
ções e tente acrescentar outras 
coisas. 
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POKE 16418,0 

LET X=21 

LET Y=14 

LET S=Q0 

LET PO=Q 

FOR F=0 TO 21 

PRINT AT F,0;:'(32 gráfico shift A)” 
NEXT F 

FOR U=0 TO 21 

LET S=S+INT (RND*3)-1 

PRINT AT U,S;/<=>" (inverso) 
PRINT AT U,S;'(3 gráfico shift A)” 
PRINT AT X,Y;'(1 gráfico shift A) X (1 gráfico shift A)” 
IF INKEY$="'8" THEN LET Y=Y+1 
IF INKEY$="5”" THEN LET Y=Y-1 
IF INKEY$="0" THEN GOTO 210 
NEXT U 

LET PO=PO-10 

IF PO=-50 THEN GOTO 320 
PRINT AT 22,18:”PONTOS: ":PO 
GOTO 80 

PRINT AT U,S;'<=>“(inverso) 

FOR T=20 TO USTEP-1 

PRINT AT T,Y;(1 gráfico shift A) * (1 gráfico shift A)” 
PRINT AT T,Y;“(3 gráfico shift A)” 
IF T=U AND Y=S THEN GOTO 270 
NEXT T 

GOTO 170 

LET PO=PO+10 

IFPO<1 ANDPO>-1 THEN PRINT AT 22,26;" ” 
PRINT AT 22,18;”"PONTOS: PO 

IF PO=100 THEN GOTO 340 


310 GOTO 80 


320 
330 
340 
350 


[fra mea 


PRINT AT 11,0;/VOCE PERDEU. ULTRAPASSOU A -50.” 
STOP 

PRINT AT 11,0;/PARABENS. VOCE CUMPRIU SUA MISSAO” 
o TOP 


INFORMÁTICA 








30.000 


EXEMPLARES 





O Q00 000000 OQO ic 


27 


“ |» PROGRAMAS 


QDO OÕVOO DO DO OO OO CO 


5 


1 
2 
5 
6 
10 
11 
12 
13 


14 
20 


30 
40 
50 


60 
70 


DO 
LEITOR — 


PROGRAMA “ASTER ROCK” 
Apresento aqui um Ótimo jogo 
para a linha TRS-80 | e Il. Trata- 
se do ASTER ROCK, imagine-se 
pilotando sua nave em direção ao 
planeta Júpiter, mas no caminho 
encontra o cinturão de asterói- 
des, seu objetivo: atravessá-lo 
sem chocar-se com os asteróides, 
para isso derarm-lhe 4 naves. Essa 
é a trama do jogo, você pilota sua 


44 85 


nave usando “,” para esquerda e 
“*” para direita, o computador 
avisa-o quando sua nave vai par- 
tir, através de um sinal sonoro. 
Tente fazer o máximo de quilô- 
metros possíveis, afinal você po- 
derá ser o primeiro homnem a pôr 
os pés em Júpiter. 
Reservar memória (32738). 


CLEAR 10600: GOSUB 11: DEFINT A-Z 

P=20:C=47:E=60:2=4 

J=RND(30):IFJ < 15 THEN 5 

P=P+J:C=47:E= 60 

CLS:GOTO 20 

AD=32739:HI=INT (AD/256):POKE 16527,HI:POKE 16526, AD-HI 
*256 

FOR I=AD TO AD+28:READDT:POKE |, DT:NEXT 

DATA 205, 127, 10, 62, 1, 14, O, 237, 91,61, 64, 69, 47, 230,3, 179, 
211, 255, 13, 40, 4, 16, 246, 24, 242, 37, 32, 241, 201 

RETURN 

PRINTO 14*64, STRING$(63,191);::FORR=OTO 50:G=RND (13):H= 
RND (63):PRINTOG*64+H, “."::NEXT 

FOR Y=0 TO 15:PRINTOY*64+20, CHR$(191);:PRINTOY *64+40,CH 
R$(191);:NEXT 

PRINTO14*64+28,” “"-PRINTO 13*64+27,CHR$(191)::PR 
INTO 13*64+34, CHR$(191);:FOR N=0 TO P 

X=RND (80):IF X < 40 THEN 50 

Y=RND (35):SET (X, Y) : NEXT 

FOR I=0 TO 5:X=USR (9809):NEXT 
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100 
110 
120 
121 


IF (PEEK (14390) AND 16)-16 THEN E=E-1 
IF (PEEK (14390) AND 64)-64 THEN E=E+1 
C=C-1:IFC<1 THEN 500 

KM=KM+20 


130 SET (E,C):K=POINTÍ(E, (C-1)) : IF K=-1 THEN 600 
140 PRINTQeOM, “QUILOMETROS";KM;:PRINTO13*64, "NAVES ";Z; 


150 


avo 
500 


600 


IFZ <Q THEN PRINTQ8*64+10," VOCE PROVOU SER UM POUCO 
ZAROLHO”;:PRINTO9*64+20 “ATÉ MAIS";:FOR |=0 TO 1000:NE 
XT:CLS:END 

GOTO 100 

FOR T=0 TO 12:PRINTOT*64+21, STRING$(19,32)::NEXT:PRINTO 
13*64+ 28, STRINGS (7,32);:PRINTO14*64+28, STRINGO (6,32);:PR 
INTO 15*64+28, STRINGS$(7,32);:E=60:0=47:KM=KM+1000:GOTO 40 
FOR T=0 TO 14:PRINTOT*64+21, STRING$(19,191);:NEXT:FOR T= 
O TO 14:X=USR (9800) :PRINTOT*64+21,STRING$(19,191);;NEXT:Z= 
Z-1:GOTO 5 


ARTIGO SOBRE O 
PROGRAMA TUNEL FIRE 


Pilotando sua nave, você ex- 
plora um planeta recém desco- 
berto, quando, sem perceber, en- 
tra em um gigantesco túnel radio- 
ativo, as paredes do túnel quel- 
mam com a radiação e, você sa- 
be que se tocá-las será seu fim, 
mesmo assim você segue tentan- 
do alcançar o fim do túnel e sa- 
var-se. Assim você participará 
desse jogo com a ajuda de seu 
computador, pilotar sua nave 
através das setas (para cima e 
para baixo) evitando tocar nas 
paredes do túnel que nunca é 
o mesmo. O computador dará 
um sinal de quando sua nave se- 
rá lançada. 

Lembre-se quando for carregar 
esse programa ou o ASTER 
ROCK responda ao READY? 
com o número 32/38, ou se seu 
computador for modelo Ill ele 
perguntará MEM. USADA? res- 
ponda com o mesmo número. 

Agora arregace as mangas e 
trate de sair desse túnel ou en- 
trará pelo cano. 


Autor: Fábio Marcos de Souza 
Araújo — CORSÁRIO [ll 
SOFTMASTER 
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CLEAR 1000:GOSUB 11:DEFINT A-Z 
N=4 
D=0 
Y=RND(35):IF Y <1 THEN 6 
CLS:GOTO 20 
AD=32739:HI=INT (AD/256) : POKE 16527,HI:POKE 16526, AD-HI 
*256 
FOR I=AD TO AD+28:READDT:POKE |, DT:NEXT 
DATA 205, 127, 10, 62, 1, 14, O, 237,91, 61, 64, 69, 47, 230, 3, 179, 
211, 255, 13, 40, 4, 16, 246, 24, 242, 37, 32, 241, 201 
RETURN 
PRINTQ0*64, STRING$(63, 191);:PRINTO14*64, STRINGS$(63, 191 
FOR T=0 TO 5O:G=RND (63) 
H=RND (13):IF H<1 THEN 30 ELSE PRINTQOH*64+G,"."::NEXT 
C=Y+3 
FOR X=0 TO 127:R=RND(2):| FR=1 THEN Y=Y- ELSE Y=Y+1 


IFY<10THENY=10 ELSE IFY> 35 THEN Y=35 

STE (X,Y):SET(X, (Y+6)):INEXT 

FOR |=0 TO 5:X=USR (3000):NEXT 

IF (PEEK (14400) AND 8)-8 THEN C=C-1 

IF (PEEK (14400) AND 16)=16 THEN C=C+1 

KM=KM+20 

D=D+1:SET (D, C):IF D > 125 THEN FOR T=1 TO 13:PRINTOT*64, 
STRING$(63, 32);NEXT:V=V+1:GOTO 5 

K=POINT ((D+1), C) : IF K=-1 THEN 500 

PRINTO15*64, “QUILOMETROS “:KM::PRINTO 15*64+25, “NAV 
ES “;N::PRINTO15*64+5D, PERCURSOS ";V; 

IF N<Q THEN PRINTO8S*64+10, “MEU AMIGO VOCÊ É VESGO??? 
2?" PRINTO9*64+10, “QUE TAL TENTAR DE NOVO <S/N>";:INP 
UT FS$:IF F$="S” THEN RUNELSE PRINT “VOLTE BREVE, GOSTE 
| DE VENCE-LO";:FOR I=00 TO 1000:NEXT:CLS:END 

GOTO 100 

FOR T=1 TO 13:PRINTO T*64, STRING$(63,191);:NEXT:FOR T=1 
TO 13:X=USR(4106):PRINTOT *64, STRING$(63, 32);:NEXT:N=N- 


1:GOTO 5 
ARTIGO SOBRE O 
PROGRAMA "SKI” 


Como nosso país é tropical, 
nos é negada uma diversão, a 
de poder esquiar no inverno, 
mas podemos simular, em nos- 
so computador, uma pista de 
esqui, isso é o que este programa 
faz, coloca você em um esqui, 
descendo montanha abaixo. Co- 
mo sempre, para atrapalhar seu 
caminho, as árvores, se você se 
descuidar poderá se esborrachar 
contra uma delas, o que não 
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100 
110 
115 
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120 


130 
140 
142 
143 
450 
500 
501 
550 
551 
800 


900 


seria nada agradável. Seu objetivo 
é passar o máximo de árvores 
possíveis sem trombar com ne- 
nhuma delas. Afinal, hoje em 
dia um par de esquis não está 
muito barato, não. 

Reservar memória (32/38) 


Autor: Fábio Marcos de Souza 
Araújo. 
SOFTMASTER 


CLEAR 1000:E$-STRING$(3,32):A$=CHR$(191)+CHR$(32)+CHR$ 
(191) :DEFINTA-Z:M=4:P=30:R=13 

CLS:FOR SS=Q TO 63:PRINT=7*64+SS, CHR$(191);:PRINTO (*64+ 
SS, CHR$(191);:NEXT:PRINTO8*64+15,“FABIO MARCOS DE SOU 
ZA-SOFTMASTER";:FOR V=Q0 TO 20:FOR G=0 TO 15:0UT255,V:O 
UT 255,G:NEXT:NEXT 

ESQUI 

CLS 

PRINTQ14*64, STRINGE (63,191); 

FOR X=Q TOI3:PRINTO X*64+25, CHR$(191);:PRINTOX*64+35, 
CHR$(191);:NEXT 

J=RND (34) : IF J<26 THEN 95 

IF (PEEK (14400) AND 32)=32 THEN GOSUB 500 

IF (PEEK (14400) AND 64)=64 THEN GOSUB 550 

PRINTOO, “ARVORES PASSADAS” ;N; 

PRINTO13*64, “PARES DE ESQUIS SOBRANDO “;M; 

IF M<QTHEN 900 

PRINTOR*64+J,”  “::R=R-1:PRINTOR*+64+J, CHR$(140);:IF R < 
1 THEN PRINTOR*64+,” “:N=N+1:R=13:GOTO 95 
PRINTO8*+64+P, AS; 

IF R=8 AND P-J THEN 800 

IF R=8 AND P=J-1 THEN 800 

IF R=8 AND P=J-2 THEN 800 

GOTO 100 

PRINTO8*64+P, ES;:P=P51:IF P< 26 THEN P-26 

RETURN 

PRINTO8*64+P, ES;:P=P+1:IF P > 32 THEN P=32 

RETURN 

FOR O=9 TO 20:FOR S-=0 TO 5:OUT255, S:INEXT:PRINTO8*64+P, 
STRING$(3,166);:PRINTO8*64+P, STRING$(3,153);:NEXT:FOR Q 
=) TO 13:PRINTO0*64+25, STRINGS(TO, 191);:NEXT:M=M-1:GO 
TOb 

PRINTQ8*64+10, “VOCÊ É UM TREMENDO ZAROLHO MEU CHA 
PA”;:PRINTO9*64+10, “QUE TAL ESBORRACHAR-SE MAIS VEZ 
ES <S/N>";:INPUT FS$:IF F$="S" THEN RUNEL SE CLS:END 
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No n9 1, no programa “QUAL- 
QUER COISA”, faltou a linha: 

750 GOTO 600 

No programa “SEU LADRÃO” 
nas linhas 290, 310, 330, em vez de 
O é 1, ou melhor onde houver o nú- 
mero (Q, substitua pelo número 1, e 
na linha 1130 IF X=1... 

No programa “MILIONÁRIO”: 515 
PRINT AT MW; (1 asterisco inver- 
so)”. 

No nº 2, no programa “TIRO AO 
ALVO” faltou alguns códigos de má- 
quina no programa principal, por isso 
aí vai a listagem correta: 


10 POKE 30000,42 
11 POKE 30001,12 
12 POKE 30002,64 
13 POKE 30003,1 
14 POKE 30004,1 
15 POKE 30005,0 
16 POKE 30006,9 
17 POKE 30007,30 
18 POKE 30008,10 
19 POKE 30009,229 
20 POKE 30010,6 
21 POKE 30011,31 
22 POKE 30012,126 
23 POKE 30013,35 


= enep 


24 POKE 30014,86 
25 POKE 30015,119 
26 POKE 30016,122 
27 POKE 30017,16 
28 POKE 30018,250 
29 POKE 30019,193 
36 POKE 30020,2 
31 POKE 30021,35 
32 POKE 30022,35 
33 POKE 30023,16 
34 POKE 30024,32 
35 POKE 30025,239 
36 POKE 30026,201 


No programa “SURPRESA”, linhas: 

3510 POKE 16 418,2 

4166 PRINT AT Q,S;'(1 gráfico shift 

T)(1 asterisco em inverso)(1 grá 
fico shift Y)";AT Q,S;(3 espaç 
os em inverso)” 

4169 PRINT AT X,Y;(1 espaço inver 

so) A (1 espaço inverso)” 

4410 PRINT AT E,Y;(1 espaço inver 
so) (um asterisco)(1 espaço inver 
so)";AT E,Y;” (3 espaços inver- 
sos)” 


No programa “FÓRMULA 1” na 
linha 320, o correto é: 
320 LET E=E+RND*2*(NOT E > 
18)-RND*2*(NOT E <6) 
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